home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / xes131.lha / XES / REXX / FileOp.xdme < prev    next >
Encoding:
Text File  |  1994-12-23  |  762 b   |  35 lines
  1. /* FileOp.xdme */
  2.  
  3. if ~show("L","rexxreqtools.library") then
  4.     if ~addlib("rexxreqtools.library", 0, -30) then exit
  5.  
  6. Parse Arg HAIL .
  7.  
  8. tagstr = "rt_reqpos=reqpos_centerscr rtfi_matchpat=~(#?.xsrc) rtfi_flags=freqf_patgad"
  9. select
  10.     when HAIL = "Saveas" then do
  11.         oktext = "_Save"
  12.         hailstr = "Save File As ..."
  13.         tagstr = tagstr || "|freqf_save"
  14.     end
  15.     when HAIL = "Replace" then do
  16.         oktext = "_Load"
  17.         hailstr = "Replace File With ..."
  18.     end
  19.     otherwise exit
  20. end
  21.  
  22. options results
  23. address 'XDME.1'
  24. 'rxresult $path'
  25. P = result
  26. 'rxresult $fname'
  27. N = result
  28.  
  29. F = '(' || rtfilerequest(P,N,hailstr,oktext,tagstr) || ')'
  30. if rtresult = 0 then exit
  31.  
  32. "chfilename" F
  33. if HAIL = "Replace" then call LoadFile()
  34. else call SaveFile()
  35.